home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2005 October / CD Rom Data Ekim 2005.iso / Media / Egitim.dcr / script_3_script_DersAc.ls < prev    next >
Encoding:
Text File  |  2005-06-29  |  709 b   |  42 lines
  1. global DersNo, ms
  2.  
  3. on mouseUp me
  4.   cs = the currentSpriteNum
  5.   Sec = cs - 4
  6.   sound(1).volume = 0
  7.   DersNo = Sec
  8.   go(the frame + 1)
  9. end
  10.  
  11. on exitFrame me
  12.   cs = me.spriteNum
  13.   DSp = cs + 15
  14.   if cs = ms then
  15.     blnd = sprite(DSp).blend
  16.     if blnd < 100 then
  17.       sprite(DSp).blend = blnd + 10
  18.     end if
  19.     blnd = sprite(DSp + 5).blend
  20.     if blnd > 0 then
  21.       sprite(DSp + 5).blend = blnd - 10
  22.     end if
  23.   else
  24.     blnd = sprite(DSp).blend
  25.     if blnd > 0 then
  26.       sprite(DSp).blend = blnd - 10
  27.     end if
  28.     blnd = sprite(DSp + 5).blend
  29.     if blnd < 100 then
  30.       sprite(DSp + 5).blend = blnd + 10
  31.     end if
  32.   end if
  33. end
  34.  
  35. on mouseEnter me
  36.   ms = me.spriteNum
  37. end
  38.  
  39. on mouseLeave me
  40.   ms = 0
  41. end
  42.